Amiga Plus 1997 #1/Amiga Plus CD - 1997 - No. 01.iso/pd/programmierung/stormamiga_libs/stormamiga.lib hd-install

Text File | 1996-11-01 | 12KB | 535 lines

;************************************************************
;*  stormamiga.lib Installer Version 2.0  1. November 1996  *
;*                                                          *
;*            © Kopierrecht 1996 bei COMPIUTECK             *
;*              geschrieben von Matthias Henze              *
;*                                                          *
;************************************************************
;
; $VER: stormamiga.lib Version 42.01 Install Version 2.0 (01.11.96)

(set stormamiga-Version "Version 42.01")
(set stormamiga-Datum "(1. November 96)")

;====================================================================
; Initialisierungen
;====================================================================

(set @default-dest "")

(set #welcome (cat
"\nWillkommen bei der Installation der \n\n"
"\"stormamiga.lib\"\n\n"
"" stormamiga-Version " vom "stormamiga-Datum"\n\n"
"Dieses Skript installiert die \"stormamiga.lib\",\n"
"entsprechend Ihrer Angaben, auf Ihre Festplatte.\n\n\n"
"© Kopierrecht 1996 bei COMPIUTECK\n"
"geschrieben von Matthias Henze"))

(set #Sprachstandard_Auswahl (cat
"\nWählen Sie den Sprachstandard aus, für den Sie die \"stormamiga.lib\" installieren möchten.\n"))

(set #C         " ANSI C")
(set #C++       " C++")


(set #startup_Auswahl (cat
"\nIn \"ANSI C\" ist es möglich die Startupcodes \"stormamiga_startups.o\" und \"stormamiga_nc_startups.o\" zu verwenden. Dadurch werden die Programme etwas kürzer.\n"
"\nWelche(n) Startupcode(s) möchten Sie installieren?\n"))

(set #FAR_C_Startupcode     " \"stormamiga_startups.o\" (Far Code)")
(set #NEAR_C_Startupcode    " \"stormamiga_nc_startups.o\" (Near Code)")


(set #C++_startup_Auswahl (cat
"\nIn \"C++\" ist es möglich die Startupcodes \"stormamiga_C++_startups.o\" und \"stormamiga_nc_C++_startups.o\" zu verwenden. Dadurch werden die Programme etwas kürzer.\n"
"\nWelche(n) Startupcode(s) möchten Sie installieren?\n"))

(set #FAR_C_C++_Startupcode     " \"stormamiga_C++_startups.o\" (Far Code)")
(set #NEAR_C_C++_Startupcode    " \"stormamiga_nc_C++_startups.o\" (Near Code)")


(set #Versions_Auswahl (cat
"\nWählen Sie die Bibliothek(en) aus, die Sie installieren möchten.\n"
"\nDie mit \"(n/a)\" markierten Bibliotheken sind noch nicht verfügbar.\n"))

(set #MC68EC020+                " Basisbibliothek für MC68EC020+")
(set #MC68EC020+_&_MC68881+     " Erweiterungsbibliothek für MC68881+ (n/a)")
(set #MC68040+                  " Erweiterungsbibliothek für MC68040+ (n/a)")

(set #Code_Modell_Auswahl (cat
"\nDie \"stormamiga.lib\" gibt es für das kleine und das große Code-Modell.\n"
"\nWelche Version(en) möchten Sie installieren?\n"))

(set #FAR_C     " großes Code-Modell")
(set #NEAR_C    " kleines Code-Modell")

(set #Standardbeispiele_Auswahl (cat
"\nUm die Vorteile der \"stormamiga.lib\" etwas zu verdeutlichen, habe ich einige Beispiele beigelegt.\n"
"\nMöchten Sie diese Beispiele installieren.\n"))

(set #ja    "ja")
(set #nein  "nein")

(set #Beispiele_Liste (cat
"Installation der Beispiele.\n"
"Bitte wählen Sie ein Laufwerk oder ein Verzeichnis.\n"
"Ein Verzeichnis \"stormamiga_lib_Examples\" wird automatisch erzeugt."))

(set #Spezialbeispiele_Auswahl (cat
"\nUm die Vorteile und Anwendungsmöglichkeiten der Spezialfunktionen etwas zu verdeutlichen, habe ich einige Beispiele beigelegt.\n"
"Wenn Sie bereits die Standardbeispiele installiert haben, wird automatisch das gleiche Zielverzeichnis benutzt. Ansonsten können Sie ein Zielverzeichnis auswählen.\n"
"\nMöchten Sie diese Beispiele installieren.\n"))


(set #Spezialfunktionen_Auswahl (cat
"\nMöchten Sie die Spezialfunktionen der \"stormamiga.lib\" nutzen.\n"))


(set #User.dic_Auswahl (cat
"\nUm das Syntax Highlighting auch für die Spezialfunktionen der \"stormamiga.lib\" nutzen zu können, ist es notwendig ein Benutzerlexikon zu installieren.\n"
"\nWählen Sie aus, ob und mit welchem Name das Benutzerlexikon installiert werden soll.\n"))

(set #User1.dic         "User 1.dic")
(set #User2.dic         "User 2.dic")
(set #User3.dic         "User 3.dic")
(set #kein_User.dic     "Kein Benutzerlexikon installieren")


(set #Anleitungen_Auswahl (cat
"\nWählen Sie die Sprache(n) für die AmigaGuide Dokumentation aus.\n"
"\nDie mit \"(n/a)\" markierten Sprachen sind noch nicht verfügbar.\n"))

(set #Deutsch   " Deutsch")
(set #English   " English  (n/a)")
(set #Italiano  " Italiano (n/a)")
(set #Français  " Français (n/a)")

(set #Anleitungen_Liste (cat
"Installation der Anleitung(en).\n"
"Bitte wählen Sie ein Laufwerk oder ein Verzeichnis.\n"
"Es wird kein Verzeichnis erzeugt."))

;=====================================================================================
; Beginn der Installation
;=====================================================================================

(message #welcome)
(welcome)


(
    (set C_C++_beides
    (askoptions
        (prompt #Sprachstandard_Auswahl)
        (help   @askoptions-help)
        (choices
        #C++
        #C
        )
    )
    )

    (if (IN C_C++_beides 0) (set C++ 1))
    (if (IN C_C++_beides 1) (set C 1))

    (if (= C++ 1)
    (
        (set kopiere_C++_startups
        (askoptions
            (prompt #C++_startup_Auswahl)
            (help   @askoptions-help)
            (choices
            #FAR_C_C++_Startupcode
            #NEAR_C_C++_Startupcode
            )
        )
        )

        (if (IN kopiere_C++_startups 0) (set FAR_C_C++_Startupcode 1))
        (if (IN kopiere_C++_startups 1) (set NEAR_C_C++_Startupcode 1))

        (if (= FAR_C_C++_Startupcode 1)
        (copyfiles
            (source "stormamiga_C++_startups.o")
            (dest "StormC:StormSYS")
        )
        )
        (if (= NEAR_C_C++_Startupcode 1)
        (copyfiles
            (source "stormamiga_nc_C++_startups.o")
            (dest "StormC:StormSYS")
        )
        )
    )
    )
    (if (= C 1)
    (
        (set kopiere_startups
        (askoptions
            (prompt #startup_Auswahl)
            (help   @askoptions-help)
            (choices
            #FAR_C_Startupcode
            #NEAR_C_Startupcode
            )
        )
        )

        (if (IN kopiere_startups 0) (set FAR_C_Startupcode 1))
        (if (IN kopiere_startups 1) (set NEAR_C_Startupcode 1))

        (if (= FAR_C_Startupcode 1)
        (copyfiles
            (source "stormamiga_startups.o")
            (dest "StormC:StormSYS")
        )
        )
        (if (= NEAR_C_Startupcode 1)
        (copyfiles
            (source "stormamiga_nc_startups.o")
            (dest "StormC:StormSYS")
        )
        )
    )
    )
)

(
   (set wähle_Libs
    (askoptions
        (prompt #Versions_Auswahl)
        (help   @askoptions-help)
        (default 1)
        (choices
        #MC68EC020+
        #MC68EC020+_&_MC68881+
        #MC68040+
        )
    )
    )


    (if (IN wähle_Libs 0) (set MC68EC020+  1))
    (if (IN wähle_Libs 1) (set MC68EC020+_&_MC68881+ 1))
    (if (IN wähle_Libs 2) (set MC68040+ 1))

    (if (= MC68EC020+  1)
    (
        (set kopiere_Libs
        (askoptions
            (prompt #Code_Modell_Auswahl)
            (help   @askoptions-help)
            (choices
            #FAR_C
            #NEAR_C
            )
        )
        )

        (if (IN kopiere_Libs 0) (set FAR_C 1))
        (if (IN kopiere_Libs 1) (set NEAR_C 1))


        (if (= FAR_C 1)
        (copyfiles
            (source "stormamiga.lib")
            (dest "StormC:Lib")
        )
        )

        (if (= NEAR_C 1)
        (copyfiles
            (source "stormamiga_nc.lib")
            (dest "StormC:Lib")
        )
        )
    )
    )

    (if (= MC68EC020+_&_MC68881+ 1)
    (copyfiles
        (source "stormamiga_881.lib")
        (dest "StormC:Lib")
    )
    )

    (if (= MC68040+ 1)
    (copyfiles
        (source "stormamiga_040.lib")
        (dest "StormC:Lib")
    )
    )
)

(
    (set kopiere_Standardbeispiele
    (askchoice
        (prompt #Standardbeispiele_Auswahl)
        (help   @askchoice-help)
        (default 0)
        (choices
        #ja
        #nein
        )
    )
    )
    (if (= kopiere_Standardbeispiele 0)
    (
        (set Zielverzeichnis
        (askdir
            (prompt #Beispiele_Liste)
            (help @askdir-help)
            (default "StormC:Examples")
        )
        )
        (makeassign "INST" Zielverzeichnis)
        (copyfiles
        (source "Standardbeispiele")
        (dest "INST:stormamiga_lib_Examples")
        (all)
        (infos)
        )
    )
    )
)

(
    (set Spezialfunktionen_Auswahl
    (askchoice
        (prompt #Spezialfunktionen_Auswahl)
        (help   @askchoice-help)
        (default 0)
        (choices
        #ja
        #nein

        )
    )
    )

    (if (= Spezialfunktionen_Auswahl 0)
    (
        (copyfiles
        (source "stormamiga.h")
        (dest "StormC:Include")
        )

        (copyfiles
        (source "stormamigainline.h")
        (dest "StormC:Include")
        )

        (set kopiere_User.dic
            (askchoice
            (prompt #User.dic_Auswahl)
            (help   @askchoice-help)
            (default 0)
            (choices
                #User1.dic
                #User2.dic
                #User3.dic
                #kein_User.dic
            )
            )
        )

        (if (= kopiere_User.dic 0)
            (copyfiles
            (source "User 1.dic")
            (dest "StormC:StormSYS/Dictionary")
            )
        )
        (if (= kopiere_User.dic 1)
            (copyfiles
            (source "User 2.dic")
            (dest "StormC:StormSYS/Dictionary")
            )
        )
        (if (= kopiere_User.dic 2)
            (copyfiles
            (source "User 3.dic")
            (dest "StormC:StormSYS/Dictionary")
            )
        )
        (set kopiere_Spezialbeispiele
            (askchoice
            (prompt #Spezialbeispiele_Auswahl)
            (help   @askchoice-help)
            (default 0)
            (choices
                #ja
                #nein
            )
            )
        )
        (if (= kopiere_Spezialbeispiele 0)
            (
            (if (exists "INST:stormamiga_lib_Examples" (noreq))
                (copyfiles
                (source "Spezialbeispiele")
                (dest "INST:stormamiga_lib_Examples")
                (all)
                (infos)
                )
            )
            (if (= (exists "INST:stormamiga_lib_Examples" (noreq))0)
                (
                (set Zielverzeichnis
                    (askdir
                    (prompt #Beispiele_Liste)
                    (help @askdir-help)
                    (default "StormC:Examples")
                    )
                )
                (makeassign "INST" Zielverzeichnis)
                (copyfiles
                    (source "Spezialbeispiele")
                    (dest "INST:stormamiga_lib_Examples")
                    (all)
                    (infos)
                )
                )
            )
            )
        )
    )
    )
)

(
    (set kopiere_Anleitungen
    (askoptions
        (prompt #Anleitungen_Auswahl)
        (help   @askoptions-help)
        (default 1)
        (choices
        #Deutsch
        #English
        #Italiano
        #Français
        )
    )
    )


    (if (IN kopiere_Anleitungen 0)
    (set Deutsch 1)
    )
    (if (IN kopiere_Anleitungen 1)
    (set English 1)
    )
    (if (IN kopiere_Anleitungen 1)
    (set Italiano 1)
    )
    (if (IN kopiere_Anleitungen 1)
    (set Français 1)
    )

    (if (= Deutsch 1)
    (
        (set Dokverzeichnis
        (askdir
            (prompt #Anleitungen_Liste)
            (help @askdir-help)
            (default "StormC:")
        )
        )
        (makeassign "INSTDOK" Dokverzeichnis)
        (copyfiles
        (source "stormamiga_lib.guide")
        (dest "INSTDOK:")
        (infos)
        )
    )
    )

    (if (= English 1)
    (
        (if (exists "INSTDOK:" (noreq))
        (copyfiles
            (source "stormamiga_lib_Eng.guide")
            (dest "INSTDOK:")
            (infos)
        )
        )
        (if (= (exists "INSTDOK:" (noreq))0)
        (
            (set Dokverzeichnis
            (askdir
                (prompt #Anleitungen_Liste)
                (help @askdir-help)
                (default "StormC:")
            )
            )
            (makeassign "INSTDOK" Dokverzeichnis)
            (copyfiles
            (source "stormamiga_lib_Eng.guide")
            (dest "INSTDOK:")
            (infos)
            )
        )
        )
    )
    )

    (if (= Italiano 1)
    (
        (if (exists "INSTDOK:" (noreq))
        (copyfiles
            (source "stormamiga_lib_Ital.guide")
            (dest "INSTDOK:")
            (infos)
        )
        )
        (if (= (exists "INSTDOK:" (noreq))0)
        (
            (set Dokverzeichnis
            (askdir
                (prompt #Anleitungen_Liste)
                (help @askdir-help)
                (default "StormC:")
            )
            )
            (makeassign "INSTDOK" Dokverzeichnis)
            (copyfiles
            (source "stormamiga_lib_Ital.guide")
            (dest "INSTDOK:")
            (infos)
            )
        )
        )
    )
    )

    (if (= Français 1)
    (
        (if (exists "INSTDOK:" (noreq))
        (copyfiles
            (source "stormamiga_lib_Franç.guide")
            (dest "INSTDOK:")
            (infos)
        )
        )
        (if (= (exists "INSTDOK:" (noreq))0)
        (
            (set Dokverzeichnis
            (askdir
                (prompt #Anleitungen_Liste)
                (help @askdir-help)
                (default "StormC:")
            )
            )
            (makeassign "INSTDOK" Dokverzeichnis)
            (copyfiles
            (source "stormamiga_lib_Franç.guide")
            (dest "INSTDOK:")
            (infos)
            )
        )
        )
    )
    )
)